score <- function(input) {
    if (input[13] > 9.725000000000003) {
        if (input[13] > 16.205000000000002) {
            var0 <- 21.71499740307178
        } else {
            var0 <- 22.322292901846218
        }
    } else {
        if (input[6] > 7.418000000000001) {
            var0 <- 24.75760617150803
        } else {
            var0 <- 23.02910423871904
        }
    }
    if (input[6] > 6.837500000000001) {
        if (input[6] > 7.462000000000001) {
            var1 <- 2.0245964808123453
        } else {
            var1 <- 0.859548540618913
        }
    } else {
        if (input[13] > 14.365) {
            var1 <- -0.7009440524656984
        } else {
            var1 <- 0.052794864734003494
        }
    }
    return(var0 + var1)
}
